10 REM  PRINT SHOP LABEL MAKER V2.0
20 REM  BY BRIAN HEYBOER  7/5/86
30 REM  THIS PROGRAM IS PUBLIC DOMAIN.
40 IFLC THEN SYS 828:GOTO640
50 POKE55,0:POKE56,156:CLR
60 POKE53280,1:POKE53281,1
70 FOR I=828TO957:READ A:POKE I,A:NEXT
80 PRINT"[149][147]  [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER [214]2.0
90 [153]"  PEEKY PEEKRIAN LEFT$EYBOER - (null)-(null)INK RIGHT$STR$: (null)(null)(null)ASCVAL(null)
100 PRINT"[144][212]HIS PROGRAM PRINTS STANDARD ONE INCH"
110 PRINT"MAILING LABELS USING [208]RINT [211]HOP [199]RAPHICS
120 [153]"ONAND TEXT OF YOUR CHOICE ON AN VALPSON OR
130 PRINT"COMPATABLE PRINTER.
140 [153]"(null)OW COMPATABLE WITH (null)RINT (null)HOP LENOMPANION
150 PRINT"[212]HIS PROGRAM IS PUBLIC DOMAIN.
160 [153]"(null)RINT (null)HOP IS A TRADEMARK OF PEEKRODERBUND.
170 PRINT"[197]PSON IS A TRADEMARK OF [197]PSON [193]MERICA.
180 [153]"CLR      (null)RESS ANY KEY WHEN READY.
190 GETX$:IFX$=""THEN190
200 DIM L$(6),F(6),FS$(9)
210 E$=CHR$(27)
220 FS$(0)=E$+CHR$(69)
230 FS$(1)=FS$(0)+CHR$(14)
240 FS$(2)=CHR$(15)
250 FS$(3)=FS$(0)+E$+CHR$(83)+CHR$(0)
260 FS$(4)=FS$(0)+E$+CHR$(83)+CHR$(1)
270 FS$(5)=FS$(0)+E$+CHR$(52)
280 FS$(6)=FS$(1)+FS$(5)
290 FS$(7)=FS$(2)+E$+CHR$(52)
300 FS$(8)=FS$(3)+FS$(5)
310 FS$(9)=FS$(4)+FS$(5)
320 EL$=E$+CHR$(84)+E$+CHR$(53)+CHR$(18)+E$+CHR$(70)+CHR$(10)+CHR$(13)
330 PRINT"[149][147]    [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER":PRINT
340 PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
350 LC[178]0:[133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]730
360 [153]"STOPRIGHT$NPUT (null)ABEL (null)EXT.  ASCOR BEST RESULTS,"
370 [153]"SKIP ALTERNATE LINES. ((null)SE 1,3,5,7 FOR
380 PRINT"FOUR LINE LABELS AND 2,4,6 FOR THREE
390 [153]"LINES.  (null)INES WITH COMMAS OR COLONS MUST
400 PRINT"[145]BE IN QUOTES.
410 [153]"ATNVAILABLE ASCONTS:
420 PRINT"   0 = [206]ORMAL
430 [153]"   1 = VALXPANDED
440 PRINT"   2 = [195]ONDENSED
450 [153]"   3 = (null)UPERSCRIPT
460 PRINT"   4 = [211]UBSCRIPT
470 [153]"   5 = RIGHT$TALIC
480 PRINT"   6 = [197]XPANDED [201]TALIC
490 [153]"   7 = LENONDENSED RIGHT$TALIC
500 PRINT"   8 = [211]UPERSCRIPT [201]TALIC
510 [153]"   9 = (null)UBSCRIPT RIGHT$TALIC
520 F$="0":FOR A=0TO6:L$(A)=" ":PRINT"[212]EXT FOR LINE "A+1;:INPUT"";L$(A)
530 PRINT"[198]ONT FOR LINE "A+1"  "F$"[157][157]";:INPUT"[157]";F$:F(A)=VAL(F$)
540 IFF(A)>9THEN530
550 NEXT
560 NL$=" ":INPUT"[206]UMBER OF LABELS   1[157][157][157]";NL$:NL=VAL(NL$)
570 IF NL=0THEN910
580 IFLCTHEN640
590 OPEN8,8,8,G$+",P,R":GET#8,A1$,A2$:CLOSE8
600 IFSTTHENLC=0:PRINT"     [193] [196]ISK [197]RROR HAS OCCURED.":GOSUB880:GOTO590
610 IFA1$=""AND(A2$<>"X"ORA2$<>"[216]")THEN630
620 PRINT"    [206]OT A [208]RINT [211]HOP [198]ILE!":GOSUB880:GOTO590
630 POKE829,ASC(A2$):LC=-1:LOAD G$,8,1
640 IFFOTHEN670
650 FO=-1:OPEN5,4,8
660 OPEN4,4,5:PRINT#4,CHR$(27);CHR$(65);CHR$(8)
670 FOR E=1 TO NL
680 FOR A=0TO6:PRINT#4,CHR$(27);CHR$(76);CHR$(88);CHR$(0);:C=21760+(A*88):D=C+87
690 FOR B=CTOD:PRINT#4,CHR$(PEEK(B));:NEXT
700 PRINT#4," "FS$(F(A));:PRINT#5,L$(A):PRINT#4,EL$:NEXT
710 PRINT#5,CHR$(10);CHR$(10)
720 NEXT:GOTO560
730 OPEN8,8,0,"$0":N$=CHR$(0):X$=N$
740 GET#8,A$,A$,A$,A$,A$,A$
750 GET#8,A$:IF A$=""THEN770
760 X$=X$+A$:GOTO750
770 PRINT""TAB(7);X$"[144]"
780 GETA$:IFA$=""THEN840
790 PRINT"[156]     [208]RESS [210][197][212][213][210][206] TO [211]TOP [196]IRECTORY
800 [153]"      (null)RESS ATNNY (null)THER TO LENONTINUESTOP
810 GETA$:IFA$=""THEN810
820 IFA$=CHR$(13)GOTO880
830 FORI=1TO2:PRINT"[145]                                     [145]":NEXT:PRINT"[145][145]"
840 GET#8,A$,A$:IF A$=""THEN CLOSE 8:GOTO880
850 GET#8,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)
860 GET#8,A$:IF A$=""THEN PRINTTAB(5)B$:B$="":GOTO780
870 B$=B$+A$:GOTO860
880 CLOSE8:PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
890 [133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]730:[137]880
900 [142]
910 [153]"ATN NEW LABEL ((null)/(null))";
920 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]950
930 [139] A$[178]"N"[176]A$[178]"(null)"[167]990
940 [137]920
950 [153]"(null)AME CHR$RAPHIC ((null)/(null))";
960 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]360
970 [139] A$[178]"N"[176]A$[178]"(null)"[167]340
980 [137]960
990 [139] FO [167] [152]4,E$;[199](64):[160]4:[160]5:[128]
1000 [131] 169,88,141,106,3,24,105,2,141,93,3,169,85,141,123
1010 [131] 3,169,11,141,189,3,169,0,141,105,3,141,122,3,162
1020 [131] 44,157,59,90,202,208,250,160,7,162,77,169,0,24,94
1030 [131] 0,88,106,202,202,202,202,202,202,202,202,202,202,202,16
1040 [131] 238,153,96,87,136,16,228,238,105,3,208,3,238,106,3
1050 [131] 173,105,3,205,189,3,208,21,24,105,77,141,105,3,144
1060 [131] 4,238,106,3,24,105,11,141,189,3,201,115,240,17,169
1070 [131] 8,24,109,122,3,141,122,3,144,178,238,123,3,76,97
1080 [131] 3,173,123,3,201,87,208,165,96,11